home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / misc / amag / 9303b.lha / ARexx & Assembler / Listing2.arexx < prev    next >
Text File  |  1993-02-25  |  301b  |  15 lines
  1. /* Strings */
  2. ADDRESS COMMAND
  3. OPTIONS PROMPT "ein Satz> "
  4. PARSE PULL satz
  5. DO i=1 TO WORDS(satz)
  6.   SAY WORD(satz,i)
  7. END
  8. DO i=2 TO LENGTH(satz)
  9.   SAY LEFT(satz,i)
  10. END
  11. SAY "Und nun ohne Vokale :"
  12. SAY COMPRESS(satz,"AEIOUaeiou")
  13. SAY "Und jetzt alles mit A :"
  14. SAY TRANSLATE(satz,"AAAAAaaaaa","AEIOUaeiou")
  15.